home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / athena / zephyr / dist / src.zwgc.zwgc.el < prev    next >
Encoding:
Text File  |  1989-10-16  |  5.7 KB  |  182 lines
  1. ; zwgc.el
  2. ;
  3. ; This file is part of the Project Athena Zephyr Notification System.
  4. ; Created by: Mark W. Eichin <eichin@athena.mit.edu>
  5. ; $Source: /mit/zephyr/src/zwgc/RCS/zwgc.el,v $
  6. ; $Author: jtkohl $
  7. ; Copyright (c) 1988 by the Massachusetts Institute of Technology.
  8. ; For copying and distribution information, see the file
  9. ; "mit-copyright.h". 
  10. ;
  11. ; Emacs mode for running zwgc in a sub process of emacs. It pops up a
  12. ; window for every new message; if you make bells appear between each
  13. ; message, it will be able to seperate them. If you move the mouse
  14. ; into the message window and hit `delete' it will delete the current
  15. ; message; if there are other messages, it will show them, if not, it
  16. ; will make the window go away.
  17. ;
  18. ; Invoke with M-x zwgc.
  19. ; 
  20. ; Also included is M-x zsend, which prompts for a user name and a
  21. ; message to send to them. If the message is blank, a buffer is popped
  22. ; up to edit the message in. If a prefix argument is given, zsend
  23. ; prompts for an instance instead. If the user name is blank, the last
  24. ; one is reused.
  25. ; 
  26. ; The following should be added to your .zephyr.desc file if you want
  27. ; to take advantage of the zwgc message seperation features:
  28. ;    does $mode
  29. ;    match tty
  30. ;        beep
  31. ;    endmatch
  32. ;    enddoes
  33. ;
  34. (defvar zwgc_el-RCS-id)
  35. (setq zwgc_el-RCS-id "$Header: zwgc.el,v 1.3 89/07/07 19:03:32 jtkohl Exp $")
  36. ;
  37. ;
  38.  
  39. (defun narrow-to-string (str)
  40.   "narrow and put up a string..."
  41.   (interactive "sString: ")
  42.   (narrow-to-region (point) (point))
  43.   (insert str))
  44.  
  45. (defvar zwgc-prog "/usr/etc/zwgc" 
  46.   "*Program to run as the zwgc process. Should set it for the machine type.")
  47.  
  48. (defun zwgc-wakeup (proc string)
  49.   "Procedure called when zwgc spits something out"
  50.   (save-excursion (set-buffer (get-buffer "*zwgc*"))
  51.           (goto-char (point-max))
  52.           (if (= 7 (string-to-char string))
  53.               (progn
  54.             (ding 1)
  55.             (message "got one!")
  56.             (narrow-to-string string))
  57.             (insert string)))
  58.   (Special-pop-up-window (get-buffer "*zwgc*"))
  59.   )
  60.  
  61. (defun zwgc ()
  62.   "emacs mode for running zwgc in a sub process of emacs. It pops up a
  63. window for every new message; if you make bells appear between each
  64. message, it will be able to seperate them. If you move the mouse into
  65. the message window and hit `delete' it will delete the current
  66. message; if there are other messages, it will show them, if not, it
  67. will make the window go away."
  68.   (interactive)
  69.   (require 'shell)
  70.   (let ((buffer (get-buffer-create "*zwgc*")) proc status)
  71.     (setq proc (get-buffer-process buffer))
  72.     (if proc
  73.     (setq status (process-status proc)))
  74.     (save-excursion
  75.       (set-buffer buffer)
  76.       (if (memq status '(run stop))
  77.       nil
  78.     (if proc (delete-process proc))
  79.     (setq proc (start-process "Zwgc" buffer 
  80.                   zwgc-prog "-ttymode" "-nofork"))
  81.     (set-process-filter proc 'zwgc-wakeup))
  82.       (shell-mode)
  83.       (local-set-key "\177" 'zwgc-punt)
  84.       )
  85.     ))
  86.  
  87.  
  88. (defun Special-pop-up-window (buffer &optional max-height)
  89.   "Pop up a window that is just big enough to hold the current buffer."
  90.   (interactive "bBuffer to pop: ")
  91.   (let* ((retwin (selected-window))
  92.      (pop-up-windows t)
  93.      (window-min-height 1))
  94.     (pop-to-buffer buffer)
  95.     (setq lines (1+ (count-lines (point-min) (point-max))))
  96.     (enlarge-window (- lines (window-height (selected-window))))
  97.     (goto-char (point-min))
  98.     (other-window 1)
  99.     ))
  100.  
  101. (defun zwgc-punt ()
  102.   "Delete the current ZephyrGram from the *zwgc* buffer."
  103.   (interactive)
  104.   (let ((window-min-height 1))
  105.     (display-buffer (get-buffer "*zwgc*"))
  106.     (delete-region (point-min) (point-max))
  107.     (widen)
  108.     (if (not (search-backward "\007" nil t))
  109.     (delete-windows-on "*zwgc*")
  110.       (narrow-to-region (point) (point-max))
  111.       (enlarge-window (- (1+ (count-lines (point-min) (point-max)))
  112.              (window-height (selected-window))))
  113.       (goto-char (point-min))
  114.       )))
  115. ;;
  116. ;; [eichin:19880309.2005EST]
  117. ;; zsend.el
  118. ;; Send zephyrgrams from emacs...
  119. ;;
  120.  
  121. (defvar *who* "" "last user sent to with zsend")
  122.  
  123. (defun zsend (&optional who message)
  124.   "zsend prompts for a user name and a message to send to them as a
  125. ZephyrGram. If the message is blank, a buffer is popped up to edit the
  126. message in. If a prefix argument is given, zsend prompts for an
  127. instance instead. If the user name is blank, the last one is reused."
  128.   (interactive
  129.    (list (if current-prefix-arg        ; is this portable???
  130.          (cons 'instance (read-input "Instance:"))
  131.        (cons 'who (read-input "Who:")))
  132. ;     (select-window (minibuffer-window))
  133. ;     (enlarge-window 4)
  134.      (read-input "Message:")))
  135.   (save-excursion
  136.     (let ((tempbuf (get-buffer-create " *zephyr*send*")))
  137.       (switch-to-buffer tempbuf)
  138.       (local-set-key "\C-c\C-c" 'exit-recursive-edit)
  139.       (erase-buffer)
  140.       (if (and (equal (cdr who) "")
  141.            (equal *who* ""))
  142.       (message "Please specify user at least once.")
  143.     (if (not (equal (cdr who) ""))
  144.         (setq *who* who)        ; save *who* for next time
  145.       (setq who *who*))        ; or, use the old value
  146.     (if (not (equal message ""))
  147.         (progn
  148.           (insert message)
  149.           (zwrite who))
  150.       (progn
  151.         (recursive-edit)
  152.         (zwrite who)))))))
  153.  
  154.  
  155. (defun zwrite (who)
  156.   "Send a ZephyrGram to user WHO, zsend is the user interface to this."
  157.   (if (eq 'who (car who))
  158.       (call-process-region (point-min) (point-max) ;range
  159.                "/usr/athena/zwrite" ;process
  160.                t        ;delete-p
  161.                t        ;output-p
  162.                nil        ;redisplay-p
  163.                "-a"        ; jtkohl is being a twit
  164.                "-q"        ;args
  165.                (cdr who))
  166.     (call-process-region (point-min) (point-max) ;range
  167.                "/usr/athena/zwrite" ;process
  168.                t        ;delete-p
  169.                t        ;output-p
  170.                nil        ;redisplay-p
  171.                "-a"        ; jtkohl is being a twit
  172.                "-q"        ;args
  173.                "-i"        ;[eichin:19880312.0015EST]
  174.                (cdr who)))
  175.   (if (not (equal (point-max) 1))
  176.       (message (buffer-substring 1 (1- (point-max))))))
  177.  
  178. ; suggested binding (control-meta-z)
  179. ;(global-set-key "\M-\C-z" 'zsend)
  180.  
  181.  
  182.